home *** CD-ROM | disk | FTP | other *** search
- The enclosed programs are offered to the public for free. Under no
- circumstances are they to be exchanged for profit. These files may be
- reproduced, but please keep them together in the file DIZZY.ZIP. Any
- questions regarding this material may be referred to the author, Paul Kunkel,
- by writing, by calling at a reasonable hour (Seattle), or by sending an
- e-mail message.
-
- Paul Kunkel
- 3909 1st Av NE, #2
- Seattle, WA 98105
- (206) 632-6757
- kunkel@u.washington.edu
-
- SURVEY71
-
- Reproduced with permission.
- Copyright 1984 Hewlett-Packard Company
-
- This subprogram is the greatest part of the HP Surveying Pac. It
- has been copied and modified. Please note that except for a few changes,
- this is Hewlett-Packards subprogram. The HP-71 was discontinued in 1988.
- The five year support life has since expired on both the HP-71 and the
- Surveying Pac.
-
- Copy this into the main memory, and it will take priority over the
- one in the ROM module. It occupies about 17K bytes. If that memory is
- needed for extra large data files, SURVEY71 can be purged, and you will
- still be able to use the old version which is in the ROM card.
-
- This is not a stand-alone program. It must be supported by other
- programs that are in the Surveying Pac, so do not remove the ROM card.
-
- New features:
-
- The print and display formats have been altered. Field angles are
- no longer displayed as angles left, only angles right. The display is a
- little more spread out, so four-digit point numbers are no longer
- truncated. This may not work out if you are using a narrow column printer,
- but the ThinkJet seems to be the printer of choice for Super Surveyor
- users.
-
- Point protection is now available. It is controlled by flag #1, the
- same flag used by Super Surveyor. To toggle the flag while in cogo, press
- the minus (-) key while one of the main COGO or FILE menus is displayed.
- The point protection screens any points being overwritten in any Surveying
- Pac routine except "Clear." If you attempt to overwrite a point while flag
- #1 is on, the computer will print or display the new coordinates, then beep
- and give you a chance to back out. You will not have the option of
- entering a different point number.
-
- An absolute/field toggle has been installed in COGO. Previously it
- was necessary to execute "Start" to change the angle display. Now you need
- only get into one of the main COGO menus and press the asterisk (*) key.
- This will toggle between field angles and absolute angles.
-
- "Rotate" has been completely rewritten. It is accessed from the
- FILE menu, like before, but the new version allows you to rotate and
- translate simultaneously, and it uses point numbers instead of coordinate
- entry. The old translation can still be called from the main FILE menu, but
- the old rotation is gone. You will not miss it.
- The first rotation prompt will ask for a point to rotate about. It
- also gives the option of entering a second point for line. In this first
- example you will rotate about #99 without using a line point.
-
- Example 1:
-
- Pivot # [;Line Pt#] > 99
-
- MOVE Pt# 99 TO Pt# > 101
-
- This moves the rotation point #99 to the coordinates of #101. If you
- wanted to perform the rotation without translating, you could have pressed
- ENDLINE, with no entry at the second prompt. The next prompt will ask for
- the rotation angle.
-
- Input Rotation > -23.1149
-
- This gives you a rotation of 23d11'49" left. If you wish to perform
- a translation without rotating, press ENDLINE, with no entry. At this
- point no coordinates have been altered, not even the pivot point, #99. The
- next prompt will ask for the points to be rotated.
-
- Rotate # [;Thru #] > 38
-
- You have now rotated #38 only. Now the same prompt reappears.
-
- Rotate # [;Thru #] > 45;60
-
- You have rotated #45 through #60, inclusive. Note that the numbers
- are separated by a semicolon (;), a comma will not work.
-
- Rotate # [Thru #] > 99
- Rotate # [Thru #] > 20;23
-
- You can answer this prompt with any range of valid points. Be
- careful not to rotate the same point twice. To quit, press ENDLINE, with
- no entry.
- Example 2:
-
- In this example, you are using a line point at the first prompt.
-
- Pivot # [Line Pt #] > 99;98
-
- You are rotating about #99, using #98 as a reference line point.
- Again, the numbers are separated by a semicolon (;), not a comma. The next
- prompt asks where to move #99.
-
- Move Pt# 99 TO Pt# > 101
-
- You are moving #99 to #101. You could rotate without translating by
- pressing ENDLINE, with no entry. Next you are asked to enter the new
- direction for the reference line.
-
- Rot Line 99-98 To Brg > NW12.4409
-
- This response rotates the line #99-#98 to a bearing of N 12d44'09" W.
- You could have answered with any of the options available in COGO --
- bearing, azimuth, angle right (+angle), angle left (-angle), or bearing
- recall (Pt#*Pt#). You could have entered no rotation by pressing ENDLINE,
- with no entry.
-
- The next prompt asks for a point or range of points.
-
- Rotate # [Thru #] >
-
- This was explained in example 1.
- WALLA
-
- This program puts the heading onto the print file after "New Set Up"
- is executed. Probably because of an oversight, Super Surveyor will print
- the heading if the printer is attached while "New Set Up" is executed, but
- it will not be recorded on the print file. If WALLA is executed
- immediately after "New Set Up", the heading will be recorded. This program
- should be used only when starting a new print file. If the file is already
- two pages long, the heading would be placed on the second page, near the
- end. If it is a very long file, it could take a long time for the program
- to run, maybe more than a minute. If this happens, do not try to interrupt
- it. You could loose part of the print file.
-
- If you measure the vertical index in "New Set Up", it adds a couple
- of extra lines and fouls up the alignment. WALLA was designed to work
- without this function. It is better to adjust your instrument than to
- adjust your data anyway.
-
- By assigning WALLA to the "i" key (which requires a shift key) you
- can avoid running the program accidentally. Use this command to assign the
- key:
-
- DEF KEY 'i',"CALL'WALLA'@ GOSUB 'CMD'":
-
- DELI
-
- DELI is a file manager for Autostake figures. The figures can be
- stored, deleted, or retrieved. When coordinate files are expanded, the
- Autostake figures are destroyed, but DELI allows you to store them to a
- separate file while the coordinate file is being expanded. After the
- expansion process is finished, the figures can be reattached to the end of
- the file.
-
- The opening prompt is a menu:
-
- Store,Load,Delete,Ex >
-
- "Store" copies all of the plan and profile figures to a separate new
- file.
-
- "Load" copies one of the above described figure files onto the
- current coordinate file. Any plan or profile figures that already exist in
- the coordinate file will be overwritten.
-
- "Delete" erases all plan and profile figures from the current file.
-
- "Ex" returns to the "Select Function" prompt.
-
- This is a subprogram, so it must be called from Super Surveyor. Use
- this command to assign it to the "K" key:
-
- DEF KEY 'K',"CALL DELI(#1) @ GOSUB 'CMD'":
- COMM
-
- This is a subprogram for inserting a comment onto the Super Surveyor
- print file.
-
- There is only one prompt:
-
- ENTER COMMENTS >
-
- Simply type your comment. If you get to the end of the line the
- HP-71 will beep and allow no more characters to be entered. After entering
- a line, you will be prompted for another. When you finish, press ENDLINE,
- with no entry. To skip a line, press the space key, then ENDLINE.
-
- To assign COMM to the "c" key:
-
- DEF KEY 'c', "CALL COMM(#3) @ GOSUB 'CMD'":
-
- BENCH
-
- This allows the instrument operator to establish the H. I. from a
- benchmark. It can be used in those situations where the horizontal control
- points have no elevations assigned to them, but there is a benchmark nearby.
-
- First it is necessary to have the benchmark in the coordinate file.
- Give it an arbitrary northing and easting, something other than 0 or
- -999999. The benchmarks will be easy to spot in the listings if you use
- the coordinates 1,1.
-
- When the program is called, the first prompt will ask for the
- benchmark point number. Next it will ask for the shot. If a prism pole is
- being used, it must be set to the height that is set in the Super Surveyor
- program. Using the instrument, measure the difference in elevation. Enter
- that number by hand. Be sure to include the minus sign if the prism is
- lower than the instrument.
-
- If a level rod is being used, set the staff height to zero in Super
- Surveyor before invoking this program. Set the instrument to a zenith
- angle of 90d, and read the rod. Hand enter the rod reading. Use a minus
- sign unless the rod is inverted.
-
- After WALLA has run, it will restart Super Surveyor. It will not be
- necessary to run "New Set Up" again. Running "Instrument On Point" or
- "Instrument Off Point" will negate the H. I. that was established in BENCH.
-
- To assign BENCH to the "B" key, use this command:
-
- DEF KEY 'B',"CALL 'BENCH'":
- FILEFIX
-
- FILEFIX is a subprogram which was included in the later releases of
- Super Surveyor, and assigned to the "x" key. This version has one
- alteration. The decimals on the coordinates can now be set to as high as
- nine. There is only one reason for doing this. If the coordinate display
- is set to two places, the coordinates will be rounded to two places when
- they are transferred to the PC using the "Data Out" function. That can
- throw a lot of unnecessary rounding error into the computed points.
-
- Before using "Data Out", change the coordinate decimal places to
- nine. Remember to change it back when you finish. The HP Surveying Pac
- will not work with nine places.
-
- It is not necessary to go through this exercise if you are using PCX
- for coordinate transfers. PCX transfers every digit, no matter what the
- display setting is.
-
- LIST
-
- This is another Super Surveyor routine that has been altered. It was
- assigned to the "j" key, but not in all versions. The alterations have
- enabled it to search for a descriptor with a given sequence of characters.
-
- The first prompt asks for the first and last point to list:
-
- 1st,last Pt >
-
- To search, answer this prompt with the letter "S"
-
- search word >
-
- Enter a few characters from the descriptor you seek.
-
- 1st,last Pt >
-
- Enter the range of points to search. The printer will list any and
- all points in that range whose descriptors contain the character sequence
- you specified.
-
- Now disconnect the printer and restart the HP-71, as though you were
- at the instrument with it. Try the search routine again. The matching
- descriptors and corresponding point numbers are displayed one at a time.
- Press ENDLINE to view the next one. When you find the one you want, enter
- "Q" and you will exit without having to view the rest.
- CPY
-
- This program will catalogue all files on a floppy disk (except
- itself), and give the user the option of copying each of them to the main
- memory.
-
- The first prompt asks for a device specifier. Enter the disk drive
- address (e. g. ":2") or the disk volume label (e. g. "PRO"). You will then
- be prompted for each file before it is copied.
-
- Keep your "keys" file and all of your programs on one disk. When you
- have a "Memory Lost" situation, you can quickly reload the programs and key
- assignments.
-
- Copying "keys" can be tricky. Usually it can be called by the disk
- address, but not by the disk volume label. It is case sensitive, so it is
- possible to have both a "KEYS" file and a "keys" file at the same time.
- Sometimes it cannot even be purged from the main memory without executing
- "PURGE ALL" and erasing everything. If you have "Memory Lost", first copy
- "keys" from your backup disk before rebooting SUPERSURV, and before copying
- any other files into the main memory.
-
- KELEV
-
- This program will delete the elevation from a given range of points.
-
- Super Surveyor will not collect two-dimensional points, and it will
- assign an elevation of zero to any two-dimensional point that it stakes or
- uses for control. That can render some misleading bogus elevations,
- especially for surveyors working near sea level. It also makes trouble for
- automatic contouring packages. A high plateau surveyor may find a few 5000
- foot sink holes in his drawing, although he will not recall seeing them in
- the field.
-
- KELEV is a very simple program. Just enter the file name and a range
- of points. Only those points with elevations less than or equal to zero
- will have their elevation killed. When conducting data collection, there
- may be occasions when you want to collect points without elevations.
- Assign a staff height that is much higher than the control elevation. It
- could be several thousand feet. This way the point will have an negative
- elevation that can be killed using KELEV.
- MIRROR
-
- MIRROR was written at a construction site in about two minutes. It
- is not a subprogram. It operates independently from the Super Surveyor
- program. This was originally used to coordinate parking islands that were
- mirror images of each other.
-
- First coordinate one set of points. Next duplicate them to another
- point range. Now run MIRROR. Enter the cogo file name and the point
- number range for the second set of points. The eastings for all of those
- points will be multiplied by -1, effectively mirroring the points on the y
- axis. Now they can be translated and rotated into place.
-
- PRINTER
-
- This program is used to change some of the configurations on the
- ThinkJet printer. Any changes will be superseded by Super Surveyor when
- "New Set Up" is executed, so it is not very useful for printing Super
- Surveyor print files. It can be used for other text printing though, such
- as program listings.
-
-